home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / povlist1.lzh / SHAPES2.POV < prev    next >
Encoding:
Text File  |  1992-07-02  |  1.9 KB  |  105 lines
  1. // Persistence Of Vision raytracer version 1.0 sample file.
  2. // By Chris Young
  3. // This image contains an example of every shape from SHAPES2.INC
  4.  
  5. #include "colors.inc"
  6. #include "shapes.inc"
  7. #include "shapes2.inc"
  8.  
  9. camera 
  10. {location <10 10 -20>
  11.    direction <0 0 1.5>
  12.    up  <0 1 0>
  13.    right <1.33333 0 0>
  14.    look_at <2 0 0>
  15. }
  16.  
  17. object {light_source {<0 1000 -1000> color LightGray}}
  18.  
  19. object {light_source {<150 100 -100> color LightGray}}
  20.  
  21. #declare Col1 =-9
  22. #declare Col2 =-3
  23. #declare Col3 =3
  24. #declare Col4 =8
  25.  
  26. #declare Row1 =6
  27. #declare Row2 =0
  28. #declare Row3 =-6
  29.  
  30. object
  31. {intersection{Tetrahedron}
  32.    texture{color Red}
  33.    bounded_by{sphere{<0 0 0> 3}}
  34.    translate <Col1 2 Row1>
  35. }
  36.  
  37. object
  38. {intersection{Octahedron}
  39.    texture{color Green}
  40.    bounded_by{sphere{<0 0 0> 1.8}}
  41.    translate <Col2 1.8 Row1>
  42. }
  43.  
  44. object
  45. {intersection{Dodecahedron}
  46.    texture{color Blue}
  47.    bounded_by{sphere{<0 0 0> 1.3}}
  48.    translate <Col3 1.3 Row1>
  49. }
  50.  
  51. object
  52. {intersection{Icosahedron}
  53.    texture{color Magenta}
  54.    bounded_by{sphere{<0 0 0> 1.3}}
  55.    translate <Col4 1.3 Row1>
  56. }
  57.  
  58. object
  59. {intersection{HalfCone_Y}
  60.    texture{color Yellow}
  61.    bounded_by{sphere{<0 0 0> 1.5}}
  62.    translate <Col1 1.5 Row2>
  63. }
  64.  
  65. object
  66. {intersection{Hexagon}
  67.    texture{color Cyan}
  68.    bounded_by{sphere{<0 0 0> 1.5}}
  69.    translate <Col2 1.5 Row2>
  70. }
  71.  
  72. object
  73. {intersection{Rhomboid}
  74.    texture{color Tan}
  75.    bounded_by{sphere{<0 0 0> 2.3}}
  76.    translate <Col3 1.5 Row2>
  77. }
  78.  
  79. object
  80. {intersection{Pyramid}
  81.    texture{color Orange}
  82.    bounded_by{sphere{<0 0 0> 5}}
  83.    translate <Col4 1.5 Row2>
  84. }
  85.  
  86. object
  87. {union{Square_X}
  88.    texture{color NeonPink}
  89.    translate <Col2 1 Row3>
  90. }
  91.  
  92. object
  93. {union{Square_Y}
  94.    texture{color Scarlet}
  95.    translate <Col3 1 Row3>
  96. }
  97.  
  98. object
  99. {union{Square_Z}
  100.    texture{color NeonBlue}
  101.    translate <Col4 1 Row3>
  102. }
  103.  
  104. object{plane{<0 1 0> 0}texture{color White}}
  105.